## Coercing a list to a 'Dna' object.
seq1<-c("?","A","C","g","t","-","0","1")
seq2<-c("?","A","C","g","t","-","0","1","2")
seq3<-c("?","A","C","g","t","-","0","1","2","3")
x<-list(seq1=seq1,seq2=seq2,seq3=seq3)
dna.obj<-as.dna(x)
#characters in Dna object
table(as.matrix(dna.obj))
##all lower case
lowc<-tolower(dna.obj)
#characters
table(as.matrix(lowc))
##all upper case
upc<-toupper(dna.obj)
#characters
table(as.matrix(upc))
Run the code above in your browser using DataLab